(url-http): Make proxy-object buffer-local, to handle proxied

asynchronous connections correctly.

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index dc670188e26ee581e61bf39875134e4352c840cc..69c04c51c28c079eb6eb296e82170c405e43b908 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1071,7 +1071,8 @@ CBARGS as the arguments."
                    url-http-chunked-length
                    url-http-chunked-start
                    url-http-chunked-counter
-                   url-http-process))
+                   url-http-process
+                   proxy-object))
   (let ((connection (url-http-find-free-connection (url-host url)
                                                   (url-port url)))
        (buffer (generate-new-buffer (format " *http %s:%d*"
@@ -1106,6 +1107,7 @@ CBARGS as the arguments."
                       url-http-data
                       url-http-target-url))
          (set (make-local-variable var) nil))
+       (make-local-variable 'proxy-object)
 
        (setq url-http-method (or url-request-method "GET")
              url-http-extra-headers url-request-extra-headers